home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_3_printB.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  603 b   |  34 lines
  1. property myName, meSprite, meMember, meHmember
  2. global doc
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meMember = meSprite.member
  7.   myName = meSprite.member.name
  8.   meHmember = member(myName & "h", 2)
  9. end
  10.  
  11. on mouseUp me
  12.   doc = new(xtra("printOMatic"))
  13.   if objectp(doc) = 0 then
  14.     exit
  15.   else
  16.     newPage(doc)
  17.     drawStagePicture(doc, point(40, 40), rect(215, 115, 579, 440))
  18.     if doJobSetup(doc) then
  19.       print(doc)
  20.     end if
  21.   end if
  22.   doc = 0
  23. end
  24.  
  25. on mouseEnter me
  26.   meSprite.member = meHmember
  27.   updateStage()
  28. end
  29.  
  30. on mouseLeave me
  31.   meSprite.member = meMember
  32.   updateStage()
  33. end
  34.